home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / tclX6.4c / dist / tests / keylist.test < prev    next >
Encoding:
Text File  |  1992-11-07  |  8.4 KB  |  325 lines
  1. #
  2. # keylist.test
  3. #
  4. # Tests for the keylget, keylkeys, keylset, and keyldel commands.
  5. #---------------------------------------------------------------------------
  6. # Copyright 1992 Karl Lehenbauer and Mark Diekhans.
  7. #
  8. # Permission to use, copy, modify, and distribute this software and its
  9. # documentation for any purpose and without fee is hereby granted, provided
  10. # that the above copyright notice appear in all copies.  Karl Lehenbauer and
  11. # Mark Diekhans make no representations about the suitability of this
  12. # software for any purpose.  It is provided "as is" without express or
  13. # implied warranty.
  14. #------------------------------------------------------------------------------
  15. # $Id: keylist.test,v 2.0 1992/10/16 04:49:55 markd Rel $
  16. #------------------------------------------------------------------------------
  17. #
  18.  
  19. if {[info procs test] != "test"} then {source testlib.tcl}
  20.  
  21. #
  22. # Some pre-build keyed lists to test with.
  23. #
  24.  
  25. set list1 {{keyA valueA} {keyB valueB} {keyD valueD}}
  26. set list2 {{keyA valueA} {keyB {{keyB1 valueB1} {keyB2 valueB2}}}
  27.            {keyD valueD}}
  28. set list3 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}}
  29.            {B {{BA ba} {BB bb} {BC {{BBB bbb}}}}}}
  30.  
  31. Test keylist-1.1 {keylget tests} {
  32.     keylget list1 keyA
  33. } 0 {valueA}
  34.  
  35. Test keylist-1.2 {keylget tests} {
  36.     list [keylget list1 keyA value] $value
  37. } 0 {1 valueA}
  38.  
  39. Test keylist-1.3 {keylget tests} {
  40.     keylget list2 keyD
  41. } 0 {valueD}
  42.  
  43. Test keylist-1.4 {keylget tests} {
  44.     list [keylget list2 keyD value] $value
  45. } 0 {1 valueD}
  46.  
  47. Test keylist-1.6 {keylget tests} {
  48.     keylget list2 keyC value
  49. } 0 {0}
  50.  
  51. Test keylist-1.7 {keylget tests} {
  52.     keylget list2 keyB
  53. } 0 {{keyB1 valueB1} {keyB2 valueB2}}
  54.  
  55. Test keylist-1.8 {keylget tests} {
  56.     keylget list2
  57. } 0 {keyA keyB keyD}
  58.  
  59. Test keylist-1.9 {keylget tests} {
  60.     set keyedlist {}
  61.     keylget keyedlist keyC value
  62. } 0 {0}
  63.  
  64. Test keylist-1.10 {keylget tests} {
  65.     set keyedlist {}
  66.     keylget keyedlist
  67. } 0 {}
  68.  
  69. Test keylist-1.11 {keylget tests} {
  70.     set keyedlist $list2
  71.     keylget keyedlist keyB.keyB1
  72. } 0 {valueB1}
  73.  
  74. Test keylist-1.12 {keylget tests} {
  75.     set keyedlist $list2
  76.     keylget keyedlist keyB.keyB2
  77. } 0 {valueB2}
  78.  
  79. Test keylist-1.13 {keylget tests} {
  80.     set keyedlist $list3
  81.     keylget keyedlist C
  82. } 0 {{CC {{CCC ccc}}}}
  83.  
  84. Test keylist-1.14 {keylget tests} {
  85.     set keyedlist $list3
  86.     keylget keyedlist C.CC
  87. } 0 {{CCC ccc}}
  88.  
  89. Test keylist-1.15 {keylget tests} {
  90.     set keyedlist $list3
  91.     keylget keyedlist C.CC.CCC
  92. } 0 {ccc}
  93.  
  94. Test keylist-1.16 {keylget tests} {
  95.     set keyedlist $list3
  96.     keylget keyedlist A.AB
  97. } 0 {ab}
  98.  
  99. Test keylist-1.17 {keylget tests} {
  100.     set keyedlist $list3
  101.     keylget keyedlist B.BC
  102. } 0 {{BBB bbb}}
  103.  
  104. Test keylist-1.18 {keylget tests} {
  105.     keylget list2 keyC
  106. } 1 {key "keyC" not found in keyed list}
  107.  
  108. Test keylist-1.19 {keylget tests} {
  109.     set keyedlist {{} {keyB valueB} {keyD valueD}}
  110.     keylget keyedlist keyB
  111. } 1 {invalid keyed list format: list contains an empty field entry}
  112.  
  113. Test keylist-1.20 {keylget tests} {
  114.     set keyedlist {keyA {keyB valueB} {keyD valueD}}
  115.     keylget keyedlist keyB
  116. } 1 {invalid keyed list format or inconsistent field name scoping: no value associated with field "keyA"}
  117.  
  118. Test keylist-1.21 {keylget tests} {
  119.     set keyedlist {{{} valueA} {keyB valueB} {keyD valueD}}
  120.     keylget keyedlist keyB
  121. } 1 {invalid keyed list format: list contains an empty field name}
  122.  
  123. Test keylist-1.22 {keylget tests} {
  124.     keylget
  125. } 1 {wrong # args: keylget listvar [key] [retvar | {}]}
  126.  
  127.  
  128. Test keylist-2.1 {keylkeys tests} {
  129.     keylkeys list1
  130. } 0 {keyA keyB keyD}
  131.  
  132. Test keylist-2.2 {keylkeys tests} {
  133.     keylkeys list2
  134. } 0 {keyA keyB keyD}
  135.  
  136. Test keylist-2.3 {keylkeys tests} {
  137.     keylkeys list2 keyB
  138. } 0 {keyB1 keyB2}
  139.  
  140. Test keylist-2.4 {keylkeys tests} {
  141.     set keyedlist $list3
  142.     keylkeys keyedlist
  143. } 0 {C A B}
  144.  
  145. Test keylist-2.5 {keylkeys tests} {
  146.     set keyedlist $list3
  147.     keylkeys keyedlist C
  148. } 0 {CC}
  149.  
  150. Test keylist-2.6 {keylkeys tests} {
  151.     set keyedlist $list3
  152.     keylkeys keyedlist C.CC
  153. } 0 {CCC}
  154.  
  155. Test keylist-2.7 {keylkeys tests} {
  156.     set keyedlist $list3
  157.     keylkeys keyedlist B.BC
  158. } 0 {BBB}
  159.  
  160. Test keylist-2.8 {keylkeys tests} {
  161.     keylkeys
  162. } 1 {wrong # args: keylkeys listvar [key]}
  163.  
  164.  
  165. Test keylist-3.1 {keylset tests} {
  166.     catch {unset keyedlist}
  167.     keylset keyedlist keyA valueA
  168.     set keyedlist
  169. } 0 {{keyA valueA}}
  170.  
  171. Test keylist-3.2 {keylset tests} {
  172.     catch {unset keyedlist}
  173.     keylset keyedlist keyA valueA
  174.     keylset keyedlist keyB valueB
  175.     set keyedlist
  176. } 0 {{keyA valueA} {keyB valueB}}
  177.  
  178. Test keylist-3.3 {keylset tests} {
  179.     catch {unset keyedlist}
  180.     keylset keyedlist keyA valueA
  181.     keylset keyedlist keyB valueB keyB valueB2
  182.     set keyedlist
  183. } 0 {{keyA valueA} {keyB valueB2}}
  184.  
  185. Test keylist-3.4 {keylset tests} {
  186.     catch {unset keyedlist}
  187.     keylset keyedlist keyA valueA
  188.     keylset keyedlist keyB valueB
  189.     keylset keyedlist keyA valueA2 keyB valueB2 keyC valueC
  190.     set keyedlist
  191. } 0 {{keyA valueA2} {keyB valueB2} {keyC valueC}}
  192.  
  193. Test keylist-3.5 {keylset tests} {
  194.     catch {unset keyedlist}
  195.     keylset keyedlist keyA
  196. } 1 {wrong # args: keylset listvar key value [key value...]}
  197.  
  198. Test keylist-3.6 {keylset tests} {
  199.     catch {unset keyedlist}
  200.     keylset keyedlist keyA valueA keyB
  201. } 1 {wrong # args: keylset listvar key value [key value...]}
  202.  
  203. Test keylist-3.7 {keylset tests} {
  204.     catch {unset keyedlist}
  205.     set keyedlist(foo) 1
  206.     keylset keyedlist keyA valueA
  207. } 1 {can't set "keyedlist": variable is array}
  208.  
  209. Test keylist-3.8 {keylset tests} {
  210.     catch {unset keyedlist}
  211.     set keyedlist {{keyA valueA valueBad} {keyB valueB}}
  212.     keylset keyedlist keyA valueA
  213. } 1 {invalid keyed list format: trailing data following value in field: "valueA valueBad"}
  214.  
  215. Test keylist-3.9 {keylset tests} {
  216.     set keyedlist {}    
  217.     keylset keyedlist C.CC.CCC ccc
  218.     set keyedlist
  219. } 0 {{C {{CC {{CCC ccc}}}}}}
  220.  
  221. Test keylist-3.10 {keylset tests} {
  222.     keylset keyedlist A.AA aa
  223.     set keyedlist
  224.     set keyedlist
  225. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa}}}}
  226.  
  227. Test keylist-3.11 {keylset tests} {
  228.     keylset keyedlist A.AB ab
  229.     set keyedlist
  230. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}}}
  231.  
  232. Test keylist-3.12 {keylset tests} {
  233.     keylset keyedlist B.BA ba
  234.     set keyedlist
  235. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}} {B {{BA ba}}}}
  236.  
  237. Test keylist-3.13 {keylset tests} {
  238.     keylset keyedlist B.BB bb
  239.     set keyedlist
  240. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}} {B {{BA ba} {BB bb}}}}
  241.  
  242. Test keylist-3.14 {keylset tests} {
  243.     keylset keyedlist B.BC.BBB bbb
  244.     set keyedlist
  245. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}} {B {{BA ba} {BB bb} {BC {{BBB bbb}}}}}}
  246.  
  247.  
  248. Test keylist-4.1 {keyldel tests} {
  249.     set keyedlist {{keyA valueA} {keyB valueB} {keyD valueD}}
  250.     keyldel keyedlist keyB
  251.     set keyedlist
  252. } 0 {{keyA valueA} {keyD valueD}}
  253.  
  254. Test keylist-4.2 {keyldel tests} {
  255.     set keyedlist {{keyA valueA} {keyB valueB} {keyD valueD}}
  256.     keyldel keyedlist keyB
  257.     keyldel keyedlist keyA
  258.     set keyedlist
  259. } 0 {{keyD valueD}}
  260.  
  261. Test keylist-4.3 {keyldel tests} {
  262.     set keyedlist {{keyA valueA} {keyB valueB} {keyD valueD}}
  263.     keyldel keyedlist keyD
  264.     keyldel keyedlist keyB
  265.     keyldel keyedlist keyA
  266.     set keyedlist
  267. } 0 {}
  268.  
  269. Test keylist-4.4 {keyldel tests} {
  270.     set keyedlist {{keyA valueA} {keyB valueB} {keyD valueD}}
  271.     keyldel keyedlist keyC
  272. } 1 {field name not found: "keyC"}
  273.  
  274. Test keylist-4.5 {keyldel tests} {
  275.     keyldel keyedlist
  276. } 1 {wrong # args: keyldel listvar key}
  277.  
  278. Test keylist-4.6 {keyldel tests} {
  279.     set keyedlist $list3
  280.     keyldel keyedlist B.BA
  281.     set keyedlist
  282. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}} {B {{BB bb} {BC {{BBB bbb}}}}}}
  283.  
  284. Test keylist-4.7 {keyldel tests} {
  285.     keyldel keyedlist A.AA
  286.     set keyedlist
  287. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AB ab}}} {B {{BB bb} {BC {{BBB bbb}}}}}}
  288.  
  289. Test keylist-4.8 {keyldel tests} {
  290.     keyldel keyedlist C.CC.CCC
  291.     set keyedlist
  292. } 0 {{A {{AB ab}}} {B {{BB bb} {BC {{BBB bbb}}}}}}
  293.  
  294. Test keylist-4.9 {keyldel tests} {
  295.     keyldel keyedlist A.AB
  296.     set keyedlist
  297. } 0 {{B {{BB bb} {BC {{BBB bbb}}}}}}
  298.  
  299. Test keylist-4.10 {keyldel tests} {
  300.     keyldel keyedlist B.BC.BBB
  301.     set keyedlist
  302. } 0 {{B {{BB bb}}}}
  303.  
  304. Test keylist-4.11 {keyldel tests} {
  305.     keyldel keyedlist B.BB
  306.     set keyedlist
  307. } 0 {}
  308.  
  309. Test keylist-4.12 {keyldel tests} {
  310.     set keyedlist $list3
  311.     keyldel keyedlist B
  312.     set keyedlist
  313. } 0 {{C {{CC {{CCC ccc}}}}} {A {{AA aa} {AB ab}}}}
  314.  
  315. Test keylist-4.13 {keyldel tests} {
  316.     keyldel keyedlist A
  317.     set keyedlist
  318. } 0 {{C {{CC {{CCC ccc}}}}}}
  319.  
  320. Test keylist-4.14 {keyldel tests} {
  321.     keyldel keyedlist C
  322.     set keyedlist
  323. } 0 {}
  324.  
  325.